home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / vis082s.arc / OUTTAMEM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-18  |  1.8 KB  |  67 lines
  1. procedure write_time;
  2. var hour,minute,second,sec100:word;am:boolean;
  3. begin
  4.  gettime(hour,minute,second,sec100);
  5.  if hour<10 then write('0');
  6.  am:=true;
  7.  if hour>12 then
  8.  begin
  9.   am:=false;
  10.   hour:=hour-12;
  11.  end;
  12.  write(hour);
  13.  write(':');
  14.  if minute<10 then write('0');
  15.  write(minute);
  16.  if am then write('am') else write('pm');
  17. end;
  18. procedure write_date;
  19. var year,month,day,dow:word;
  20. begin
  21.  getdate(year,month,day,dow);
  22.  if month<12 then write('0');
  23.  write(month,'/');
  24.  if day<12 then write('0');
  25.  write(day,'/');
  26.  year:=year-1900;
  27.  if year<10 then write('0');
  28.  write(year);
  29. end;
  30.  
  31. procedure we(s:string);
  32.     begin
  33.      write(#27+'['+s+'m');
  34.     end;
  35.  
  36. procedure do_me(k_me:string);
  37. begin
  38.        if k_me='00' then we('0;30') else
  39.        if k_me='01' then we('0;34') else
  40.        if k_me='02' then we('0;32') else
  41.        if k_me='03' then we('0;36') else
  42.        if k_me='04' then we('0;31') else
  43.        if k_me='05' then we('0;35') else
  44.        if k_me='06' then we('0;33') else
  45.        if k_me='07' then we('0;37') else
  46.        if k_me='08' then we('1;30') else
  47.        if k_me='09' then we('1;34') else
  48.        if k_me='10' then we('1;32') else
  49.        if k_me='11' then we('1;36') else
  50.        if k_me='12' then we('1;31') else
  51.        if k_me='13' then we('1;35') else
  52.        if k_me='14' then we('1;33') else
  53.        if k_me='15' then we('1;37') else
  54.        if k_me='B0' then we('40') else
  55.        if k_me='B1' then we('44') else
  56.        if k_me='B2' then we('42') else
  57.        if k_me='B3' then we('46') else
  58.        if k_me='B4' then we('41') else
  59.        if K_me='B5' then we('45') else
  60.        if K_me='B6' then we('43') else
  61.        if K_me='B7' then we('47') else
  62.        if k_me='CT' then write_time else
  63.        if k_me='CD' then write_date else
  64.  
  65.        write('|'+k_me);
  66. end;
  67.